home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / ada / c01lab1.zip / ADAWKBK / SOL1-6.ADA < prev    next >
Text File  |  1992-11-11  |  609b  |  30 lines
  1. -- Problem 1.6
  2. -- by Rick Conn
  3. with Text_IO;
  4. procedure Truth_Table is
  5.  
  6.   package Bool_IO is new Text_IO.Enumeration_IO (Boolean);
  7.  
  8. begin -- Truth_Table
  9.  
  10.   Text_IO.Put_Line ("   I     J      I and J  I or  J  I xor J");
  11.   for I in FALSE .. TRUE loop
  12.  
  13.     for J in FALSE .. TRUE loop
  14.  
  15.       Bool_IO.Put (I, 6);
  16.       Bool_IO.Put (J, 6);
  17.       Text_IO.Put ("    ");
  18.       Bool_IO.Put (I and J, 7);
  19.       Text_IO.Put ("  ");
  20.       Bool_IO.Put (I or J, 7);
  21.       Text_IO.Put ("  ");
  22.       Bool_IO.Put (I xor J, 7);
  23.       Text_IO.New_Line;
  24.  
  25.     end loop;
  26.  
  27.   end loop;
  28.  
  29. end Truth_Table;
  30.